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TM 990/402 
LINE-BY-LINE ASSEMBLER 

1. GENERAL 

The TM 990/402 Line-By-Line Assembler (LB LA) is a standalone program that assembles into object code the 69 
instructions used by the TM 990/100M/180M microcomputers. Comments can be a part of the source statement; 
however, assembler directives are not recognized. Assembler TM 990/402-1 consists of two EPROM'sand support the 
TM 990/100M microcomputer. TM 990/402-2 consists of one EPROM and supports the TM 990/180M microcomputer. 

2. INSTALLATION 

Remove the TMS 2708 chip(s) from the package and install as follows (see Figure 1): 

( 1 ) Turn off power to the TM 990/1 XXM microcomputer. 

(2) Place the chip(s) into the proper socket(s) as shown in Figure 1 . The shaded components in Figure 1 denote 
the LBLA EPROM's correctly placed in their sockets. The corresponding socket number (UXX number) is 
marked on the EPROM, 

NOTES 

1. Place the TMS 2708(s) into the socket(s) with pin 1 in the lower left corner as 
denoted by a 1 on the board and on the EPROM. Be careful to prevent bending of 
the pins. 

2. Do not remove EPROM's containing the monitor as shown in Figure 1. The 
monitor is used by the assembler. 

(3) Verify proper positioning in the sockets. Apply power to the microcomputer board. 

3. OPERATION 
3.1 SETUP 

NOTE 

The examples in this guide use memory addresses obtainable in RAM on the 
TM 990/100M microcomputer. To exemplify the TM 990/180M addressing scheme, the 
reader should substitute a 3 for the F in the most significant digit (left most) of a four- 
digit memory address in the following examples (e.g., 3EE0-|6 for FEE016)- 

• With the Line-By-Line Assembler EPROMs installed, call up the monitor by pressing the RESET switch in the 
upper left corner of the board and then pressing the A key at the terminal. 

• Invoke the R keyboard command and set the Program Counter (PC) to 09E61 6. This is the memory address entry 
point for the Line-By-Line Assembler. 

• Invoke the E (execute) command. The assembler will execute and print the memory address (M.A.) FE0016 for 
the TM 990/100 or 3E0016 f ° r the TM 990/180M. The printhead will space to the assembly language opcode 
input column and wait for input from the keyboard. 

?R 
W=0ER4 

P= OF 9E 6 -■ LBLA ENTRY ADDRESS 

?E 

FE 



3.2 INPUTS TO ASSEMBLER 

The Line-By-Line Assembler accepts assembly language inputs from a terminal. As each instruction is input, the 
assembler interprets it, places the resulting machine code in an absolute address, and prints the machine code (in 
hexadecimal) next to its absolute address: 

MEMORY ADDRESS OF ASSEMBLED MACHINE CODE 
-MACHINE CODE ASSEMBLED BY ASSEMBLER 
■INSTRUCTION MNEMONIC 

ONE SPACE (MAXIMUM) 

OPERANDS 




i AT LEAST ONE SPACE(MINIMUM) 

/ ^ COMMENTS 

FEOO 02E0 LUPI >FE3 SET UP WORKSPACE ADDRESS 

FE02 FE8 

FE04 02 LI ROjIO SET UP COUNTER VALUE 

FE06 OOOfl 

FE03 02 01 LI RliOFEAO ADDRESS OF VALUES IN Rl 

FE0A FEA0 

FE0C 0202 LI R2OFEB0 ADDRESS OF STORAGE AREA IN P2 

FE0E FEE0 

FE10 CCB1 MOV ♦R1+«*R2+ MOVE VALUES TO STORAGE AREA 

FE12 060 DEC R0 DECREMENT COUNTER 

FE14 1301 JEQ >FE13 E^IT IF COUNTER = ZERO 

F E 1 b 1 F C J M P > F E 1 L D O P E A C K U N T I L 1 V A L U E S M O V E D 

FE18 

Use only one space between the mnemonic and the operand. If you use the comment field, use at least one space 
between the operand and comment. If no comment is used, complete the instruction with a space and carriage return. 
If a comment is used, only a carriage return is required. 

No loader tags are created; code is loaded in contiguous memory addresses by the assembler. The location can be 
changed as desired (explained in paragraph 3.2.2). 

Labels cannot be used. Addressing is by byte displacement (jump instructions) or by absolute memory address. 

NOTE 

Be aware that the workspace for the TIBUG monitor begins in RAM at address FFBO16 
for the TM 990/100M and begins at address 3FB0-|6 for the TM 990/180M. Understand 
that assembled object code should not be entered at or above these addresses. 

3.2.1 Program Preparation 

Set up your program using flow charts with code written on a coding pad. Do not use assembler directives. 

3.2.2 Changing Absolute Load Address 

Code is located at the address written on the assembler output. When initialized, the assembler loads code contiguously 
starting at M.A. FEOO16 (3E00-|6 for TM 990/180M). This address can be changed at any time during assembly by 
typing a slash (/) followed by the desired M.A.: 



FE8 S081 C R1«R£ COMPARE VALUES 

FE8£ 1301 JEQ >FE86 IF EQUAL* SKIP ERRDR ROUTINE 
FE84 .06 A EL S»FF£0 OTHERWISE DO ERROR ROUTINE 
FE86 FF£0 

FE88 FFE'O -* change address 

FF£0 £FA0 XDP S»FF£6j 14 SEND ERROR NESSRGE 

FF££ FF£6 

FF£4 045B E *R11 RETURN TO CALLING PROGRAM 

FF£6 OAOD +>0A0D 

FF£8 4552 SERROR FOUND 

FF£A 5£4F 

FF£C 5££0 

FF£E 464F 

FF3 554E 

FF3£ 44£0 

FF34 0000 +00 

FF36 FE86 -* change address 

FE86 

Note that this is similar to using an AORG (absolute origin) 990 assembler directive. 
3.2.3 Entering Instructions 

Any of the 69 instructions applicable to the TM 990/1 XXM microcomputers can be interpreted by the Line-By-Line 
Assembler. The following apply: 

(1) Place one space between instruction mnemonic and operand. 

(2) Terminate entire instruction with a space and a carriage return. Lines with comments need only a carriage 
return. Character strings require two carriage returns. 

(3) Do not use labels; addressing is through byte displacement (jump instructions) or absolute addresses: 

FE8C 16 07 JNE $+16 

FE3E 10E8 -JMP >FE60 

FE 9 C 8 R £ MO V S> > F D £ < R £ ■' ;• 3 > F E 1 k R £ :.< 

FE9£ FD£0 

FE94 FE10 

FE96 

(4) Register numbers are in decimal and can be predefined (preceded by an R): 

F E 9 6 £ C LI 1 £ n > D 

FE98 0D0 

FE 9R 0£ D LI R 1 3 j > FF F F 

FE9C FFFF 

FE9E 



(5) Jump instruction operand can be $+n, $-n, or >M where n is a decimal value of bytes (+256 > n > —254) 
and M is a memory address in hexadecimal. The dollar sign must be followed by a sign and number (JMP $ 
is not allowed). 



FE2 


1 


3 04 


JEQ 


$+10 


EXIT 






FE22 


1 


3 04 


JEQ 


$+>R 


EXIT 






FE24 


1 


3 04 


JEQ 


$+£1010 


EXIT 






FE26 


1 


304 


JEQ 


>FE3 


EXIT 






FE28 


10FF 


JMP 


$+0 


LDDP 


RT THIS 


RDDRE 


FE2R 


1 OFF 


JMP 


$-0 


LDDP 


AT THIS 


RDDRE 



OFE£3> 



(6) Absolute numerical values can be in binary, decimal, or hexadecimal. 

• Binary values are preceded by a percent sign (%). One to 16 ones and zeroes can follows; unspecified 
bits on the left will be zero filled: 



FE58 0£04 LI R4« M 01 01 01 

FE5R 0RR 

FES C R + "; 1 1 

FE5E FFF6 -£1010 

FE6 



>RR IN R4 

DRTfl STRTEMEMT 
DRTR STRTEMEMT 



Decimal values have no prefix in an operand: 



FE6C 


0£ 05 


LI R5:.100 


LDRD CDUMTER 


FE6E 


064 






FE70 


02 06 


LI R6n 32768 


SET LIMIT 


FE72 


8 






FE74 


8 


+ 


32768 




FE76 


8 


- 


32768 




FE78 


7FFF 


+ 


32767 




FE7R 


8 1 


- 


32767 




FE7C 


FFFF 


-1 




FE7E 











Hexadecimal values are preceded by the greater -than sign (»: 

SET UP RDDRES 



FE7E 02E0 LWPI >FF00 

FE80 FF0 

FE82 FFFF +>FFFF 

FES 4 01 ->FFFF 

FE86 



DRTR STRTEMEMT 
DRTR STRTEMEMT 



NOTE 

In operands, absolute value must be unsigned values only. However, there is a method for 
using the assembler to compute and assemble a negative value; this method is especially 
useful with the immediate instructions (e.g., Al, CI, LI). Enter the instruction using the 
negative value. The assembled value will be all zeroes in the last assembled word. Use the 
slash command (paragraph 3.2.2) to assemble at the previous address, then enter the 
negative value as a data statement as shown in the following example: 



FE 1 fl 0£ 01 LI R 1 :• -> 1 «- USE SIGNED OPERAND 

FE1C 000 <- SIGNED NUMBER ASSEMBLIES AS 0000 (IN M.A. > FEIC) 

F r ElE -■FEIC «- SET OBJECT LOAD ADDRESS TO PREVIOUS ADDRESS 

FE 1 C FF -> 1 *- ->100 OFF00) NOW IN M.A. >FEIC 

FE1E 

(7) Absolute addresses are used instead of labels: 

FER0 C8£0 MOV S»FE1 0* 3>FED0 MOVE TD STDRflGE 

FEA£ FE10 

FER4 FED0 

FER6 16FC JNE >FEA0 LDDP BACK TD MDVE INSTRUCT I DM 

FERS 

(8) Character strings are preceded by a dollar sign and are terminated with two carriage returns. 

FF10 414S SAECD 1233 

FF1£ 4344 

FF14 £0£0 

FF16 £031 

FF1S 3£33 

FF1R 33£0 «- UNUSED RIGHT BYTE FILLED WITH >20 (SPACE) 

(9) Character strings of one or two characters can be designated by encoding the string in quotes. If not part of 
an operand, a plus or minus sign must precede the value. If the string is larger than two characters, the last 
two characters are interpreted. 

FERR 313£ + -'1£- CHARACTERS ONE AND TWO 

FEAC 0C + 1£ VALUE DF POSITIVE TWELVE 

FEAE FFF4 -1£ VALUE DF NEGATIVE TWELVE 

FEE0 000 + + FOLLOWED BY CTRL KEY AND NULL KEY PRESSED 

FEB£ 0£0£ LI R£:. -ABCB y ASSEMBLED LAST TWO CHARACTERS <X AND 10 

FEB4 4344 . . 

FEB6 0£0£ LI RcS'E' CHARACTER E IN RIGHT BYTE 

FEES 045 

FEEA 0£0£ LI R£«>E VALUE >E IN RIGHT BYTE 

FEEC 0E 

FEEE 

(10) Signed numerical values of up to 16 bits can be designated by preceding the value with a plus or minus sign. 
If more than 16 bits are entered in binary or hexadecimal, the last 16 bits entered are used. If more than 16 
bits are entered in decimal, the assembled value is the same as the remainder had the number been divided 
by2 15 (65, 536! ), 

FE 1 8 OFF +•■■: 1 1 1 1 1 1 1 1 011111111 

FE1A FF01 — "il 1 1 1111100000000111 11111 

FEIC AAEE +>AAAAAAEE 

FE1E S000 +32768 

F E £ 8 1 + 3 £ 7 6 9 

F E £ £ +655 3 6 

FE£4 FFFF +131071 

FES 6 000 +131072 

FE£8 80 -3£768 

FESA 80 01 -3£767 

FE£C 7FFF -32769 

FE2E 



3.3 ERRORS 



When the assembler detects an error, it types an error symbol and readies the terminal for re-entering data at the same 
memory address. The following error symbols are used: 



D (Displacement error). The jump instruction destination is more than +256 or —254 bytes away. 



FF 
FF 
FF 
FF 



JNC 

JNC 

17 OB JNC 



$+300*D 
>F000+D 
>FF5 



!H 



R (Range error). The operand is out of range for its field: 



FF 
FF 
FF 



3 LI R44«+R 
3 02 04 LI R4!»£00 
32 0CS 



S (Syntax error). The instruction syntax was incorrect: 



FF 
FF 
FF 
FF 



MOZ+S 1 
MOS+S J 



34 MO 

34 MOS 

34 C80£ MOV R£>3»FE90 

36 FE90 



INCORRECT MNEMONICS 



EXITING TO THE MONITOR 

Return control to monitor by pressing the escape (ESC) key. 

PSEUDO-INSTRUCTIONS 



KBT> - C12L- J HL 



The TM 990/402 also interprets two pseudo-instructions. These pseudo-instructions are not additional instructions but 
actually are additional mnemonics that conveniently represent two members of the instruction set: 

• The NOP mnemonic can be used in place of a JMP $+2 instruction which is essentially a no-op (no oper- 
ation). This can be used to replace an existing instruction in memory, or it can be included in code to force 
additional execution time in a routine. Both NOP and JMP $+2 assemble to the machine code 1000-|6. 

• The RT mnemonic can be used in place of a B *R1 1 instruction which is a common return from a branch 
and (BL) subroutine. Both RT and B *R1 1 assemble to the machine code 045B-|6- 

Note the following examples: 



FE0 1000 JMP $+£ 
FE02 100 NDP 
FE04 045E E *R11 
FE06 045B RT 



JUMP TD NEXT INSTRUCT I DN 
ALSO ASSEMBLES TD >1000 
RETURN COMMAND 
ALSO A RETURN COMMAND 



MP325 
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TM 990/402 LINE-BY-LINE ASSEMBLER LISTING 

1. GENERAL 

This is an assembly language listing of the TM 990/402 Line-By-Line Assembler (LBLA) used 
with the TM 990/100M, TM 990/101M, and TM 990/180M microcomputers. This assembler 
listing is coded in the assembly language mnemonics used by Texas Instruments' 990 family 
This language is further described in the following documents: 

• Model 990 Computer, TMS 9900 Microprocessor Assembly Language Programmer's 
Guide (P/N 943441-9701) 

• TM 990/1XXM Microcomputer User's Guide (Section 4) 

• TM 990/402 Line-By-Line Assembler User's Guide 

This listing was assembled on Texas Instruments 990 Software Development System Macro- 
assembler (SDSMAC). 

Note that program data within the EPROM will include only hexadecimal object code at a 
corresponding location counter value as shown in Figure 1. This data begins at source 
statement number 0062 which shows the object code at absolute memory address (M A ) 0800ie 
on the board. This statement is at the top of listing page 2. 

2. LISTING FORMAT 

Figure 1 identifies the different fields of the listing. 



0062 
0063 
0064 

0065 
0066 

0067 
0068 
0069 



0806 
0808 
080A 
080C 



ASSEMBLY LANGUAGE SOURCE STATEMENT NUMBER (DECIMAL) 
LOCATION COUNTER (HEXADECIMAL) 

ASSEMBLED OBJECT CODE (HEXADECIMAL) 
FIELD 

OP CODE FIELD 

OPERAND FIELD 



u COMMENT FIELD 

INPUT R4 
RIGHT JUSTIFY 
ESC? 




TYPEX 
@M0N I T 



BRANCH BACK TO MONITOR 



* PRINT A SPACE 
FIGURE 1. LISTING AND SOURCE STATEMENT FIELDS 



2.1 ASSEMBLY LANGUAGE SOURCE STATEMENT NUMBER. This is the number, in decimal, of 
the statement in the Line-By-Line Assembler assembly language program. This shows the 
sequence in which the assembly language (source) statements were processed by the 
SDSMAC assembler. 

2.2 LOCATION COUNTER. This is the hexadecimal number showing the location of assembled 
object code. This location is relative to the beginning of the program; thus it should begin with 
location OOOde One exception is where an absolute origin assembler directive (AORG) is used 
as in this program (source number 0057); the slash (/) directive in the Line-By-Line 
Assembler is equivalent to this directive. 

Essentially, the location' counter number is the location in memory of the corresponding object 
code after a program has been loaded into memory with no load bias (bias of zero). In the 
Line-By-Line Assembler listing, this column shows the memory address in EPROM of the 
corresponding object code. For example, the object code at M.A. 0800ie is 2EC4ie, at M.A. 
0802 16 it is 0984i6, etc. 

2.3 ASSEMBLED OBJECT CODE. This column contains the resulting object code in hexadecimal 
after the source statement has been assembled. 

2.4 LABEL FIELD. This six-character field contains an alphanumeric label that identifies the 
location of the source statement. 

2.5 OP CODE FIELD. This four-character field contains assembly language operation code 
mnemonics. It is separated from the label field and operand field by at least one space. 

2.6 OPERAND FIELD. This field contains the operands of the instruction. This field is separated 
from the op code and comment fields by at least one space. 

2.7 COMMENT FIELD. The comments in this field are abbreviated auxiliary data to help further 
understand the instruction or the data flow. 



INSTRUCTION SET AND INSTRUCTION FORMATS 

The instruction set mnemonics, hexadecimal codes, formats. Status Register bits affected, and 
definitions are provided on pages 16 and 17 of this manual. 



LBLA SDSMAC 947075 *D 07:47:44 WEDNESDAY, SEP 21, 1977. 

LINE BY LINE ASSEMBLER 991 754-9903- * A 



PAGE 0001 



0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
006 1 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
000A 
OOOB 
OOOC 
OOOD 
OOOE 
OOOF 

0080 



FFFA 
FFBO 
FEOO 



0800 



IDT LBLA' 



TITLE: ZERO LABEL ASSEMBLER 



REVISION: 
COMPUTER: 
ABSTRACT: 



9/19/77 

TM990 / 1 OOM , TM990/ 1 SOM M I CROCOMPUTER 

PROVIDES LIMITED ASSEMBLER CAPABILITY 

MOST FEATURES OF THE 990/4 ASSEMBLER 

ARE INCLUDED EXCEPT LABEL DEFINITION 

AND REFERENCE. 

THE LATEST UPDATE PUT ALLOWS COMMENTS 

TO BE MADE AFTER SOURCE CODE IS ENTERED. 

A SPACE CHARACTER IS STILL USED TO 

TERMINATE THE INSTRUCTION, HOWEVER A 

CARRIAGE RETURN MUST TERMINATE THE LINE. 

* CALLING SEQUENCE: BRANCH TO START ADDRESS 

* ZLABGN 
*• 

* THE ENTRY ADDRESS IS AT ZLABGN=>09E6. 
* 

* REGISTER EQUATES 

RO 

Rl 

R2 

R3 

R4 

R5 

R6 

R7 

R8 

R9 

RIO 

Rll 

R12 

R13 

R14 

R15 

# 

MONIT EQU >0080 



EQU 





EQU 


1 


EQU 


2 


EQU 


3 


EQU 


4 


EQU 


5 


EQU 


6 


EQU 


7 


EQU 


8 


EQU 


9 


EQU 


10 


EQU 


11 


EQU 


12 


EQU 


13 


EQU 


14 


EQU 


15 



TOP OF TIBUG MONITOR, REV. A 



* RAM AREA 

# 

PC EQU >FFFA 

WORKS EQU >FFBO 

DFPC EQU >FEOO 

* 

MONITOR INTERFACE 

ONLY XOP CALLS ARE VIA CALLS TO INPT,TYPE, 

AND TYPEH 



PC ** >3FFA FOR TM990/1SO 
WP ** >3FB0 FOR TM990/180 
USER PC ♦* >3F00 FOR TM990/1S 



DXOP OUT, 12 
DXOP IN, 11 
DXOP HEXC, 10 
AORG >0800 



OUTPUT CALL = li 
INPUT CALL = 11 
HEX OUTPUT =10 
SET UP ORIGIN 



GET ONE CHARACTER FROM USER AND ECHO IT BACK 
CHARACTER RETURNED RIGHT -JUSTIFIED IN R4 
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0062 
0063 
0064 

0065 
0066 

0067 
0068 
0069 
0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0033 

0084 

0035 

0086 

0087 

0088 

0089 

0090 

009 1 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

1 03 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 



0800 
0802 
0304 
0806 
0808 
080A 
080C 



080E 
0810 



0812 
0814 
0816 
0818 
081 A 



08 1C 
08 IE 



2EC4 
0984 
0284 
00 IB 
1603 
0460 
0080 



0204 
0020 
0811 



06C4 
2F04 
0A84 
16FD 
045B 



2E85 
045B 



0820 

0821 

0822 

0823 

0824 

0825 

0826 

0827 

0828 

0829 

082A 

082B 

082C 

082D 

082E 

082F 



0000 

0020 

0040 

0060 

0080 

00A0 

OOCO 

OOEO 

31 

A2 

D3 

A9 

2E 

44 

E9 

82 

AC 

57 

FO 

83 

A2 

A9 

2B 

4F 



INPUT R4 
RIGHT JUSTIFY 
ESC? 



BRANCH BACK TO MONITOR 



INPT IN R4 

SRL R4,8 

CI R4,>1B 

JNE TYPEX 

B @MONIT 

•H- 

* PRINT A SPACE 

TYPES LI R4,' ■' 



SPACE EQU *-l 
■* 

* TYPE THE RIGHT BYTE OF R4. AFTER THAT, 

* TYPE THE LEFT BYTE IF IT IS NOT ZERO. 
* 

TYPE SWPB R4 PUT IN RIGHT BYTE 

TYPE1 OUT R4 OUTPUT R4 

SLA R4,8 ANOTHER CHAR? 

JNE TYPE1 YES-TYPE IT 

TYPEX B *R11 RETURN 

# 

* TYPE THE FOUR DIGIT HEX NUMBER 

* IN R5. 
* 

TYPEH HEXC R5 

B *R 1 1 
* 

* MNEMONIC TABLE. 

* AS A BINARY TREE 



HEX OUTPUT OF R' 
RETURN 



THIS TABLE IS CONSTRUCTED 
EACH ENTRY HAS THE 

* CHARACTER POSITION AND THE CHARACTER. 

* IF THE SIGN BIT IS SET THE CHARACTER IS A 

* LEGAL END OF OP-CODE. THE ASCII CHARACTER 

* IS IN THE RIGHTMOST FIVE BITS. 
* 



PI EQU O 
P2 EQU 32 
P3 EQU 64 
P4 EQU 96 
PIE EQU >80+Pl 
P2E EQU >80+P2 
P3E EQU >80+P3 
P4E EQU >S0+P4 
OPS BYTE PlE+-'A-'-'@' 
BYTE P2E+'B--'@" 
BYTE P3E+'S'-'@' 
BYTE P2E+" I '-'«' 
BYTE P2+'N'-'@' 
BYTE P3+'D '-•<§•' 
BYTE P4E+' I '-'©■' 
BYTE PiE+'B'-'e-' 
BYTE P2E+'L'-'@' 
BYTE PS+'W'-'-e' 
BYTE P4E+'P'-'@'" 
BYTE PlE+'C'-'@' 
BYTE P2E+'B'-"@' 
BYTE P2E+' I ■'-'©•' 
BYTE P2+'K'-'@' 
BYTE P3+'0'-'«' 



CHAR ONE 
CHAR TWO 
CHAR THREE 
CHAR FOUR 
CHAR ONE ?< END 
CHAR TWO 8< END 
CHAR THREE & END 
CHAR FOUR ?< END 
A S,D 
AB S.D 
ABS S 
AI W, IOP 



ANDI W,IOP 
B S 
BL S 

BLWP S 
C S,D 
CB S,D 
CI W, IOP 
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0119 0830 


EE 


BYTE P4E+'N' 


'-'©•' 


CKON 


0120 0831 


E6 


BYTE P4E+'F' 


-•-e-- 


CKOF 


0121 0832 


2C 


BYTE P2+'L'- 


-•'&•' 




0122 0333 


D2 


BYTE P3E+-R' 


- •' @ " 


CLR S 


0123 0834 


2F 


BYTE P2+'0'- 


-•'©" 




0124 0835 


C3 


BYTE P3E+-'C 


-'@- 


COC S,W 


0125 0836 


3A 


BYTE P2+'Z'- 


■'«' 




0126 0337 


C3 


BYTE P3E+ •'(?.•' 


-•'©•' 


CZC S,W 


0127 0833 


04 


BYTE Pl+'D'- 


■ '&' 




0128 0839 


25 


BYTE P2+'E'- 


• x @' 




0129 083 A 


C3 


BYTE P3E+-X' 


-'@' 


DEC S 


0130 033B 


F4 


BYTE P4E+-'T-' 


_^@.- 


DECT S 


0131 033C 


29 


BYTE P2+'I'- 


•'©■' 




0132 083D 


D6 


BYTE P3E+'V-' 


-'«' 


DIV S,W 


0133 083E 


09 


BYTE Pl+'I'- 


-©•- 




0134 083F 


24 


BYTE P2+'D'- 


•'©•- 




0135 0840 


4C 


BYTE P3+'L'- 


-©•- 




0136 0841 


E5 


BYTE P4E+'E-' 


-•••@' 


IDLE 


0137 0842 


2E 


BYTE P2+'N'- 


••©•' 




0138 0343 


C3 


BYTE P3E+'C 


-•-©•' 


INC S 


0139 0844 


F4 


BYTE P4E+-'T-' 


-•'©•' 


INCT S 


0140 0845 


D6 


BYTE P3E+-'V-' 


-'<§■- 


INV S 


0141 0846 


0A 


BYTE Pl+'J'- 


•©•' 




0142 0847 


25 


BYTE P2+'E'~ 


■-(a- 




0143 0848 


Dl 


BYTE P3E+'Q' 


-•-©-• 


JEQ DIS 


0144 0849 


27 


BYTE P2+'G'- 


•'<§•- 




0145 084 A 


D4 


BYTE P3E+-'T' 


-•-©•- 


JGT DIS 


0146 084B 


A3 


BYTE P2E+'H-' 


-•'@- 


JH DIS 


0147 084C 


C5 


BYTE P3E+--E' 


-'©•' 


JHE DIS 


0148 084D 


AC 


BYTE P2E+'L-' 


~--@-' 


JL DIS 


0149 084E 


C5 


BYTE P3E+'E' - 


-•'©•- 


JLE DIS 


0150 084F 


D4 


BYTE P3E+'T-' 


-"«' 


JLT DIS 


0151 0850 


2D 


BYTE P2+'M'- 


-e-' 




0152 0851 


DO 


BYTE P3E+-P-- 


-•'©•- 


JMP DIS 


0153 0852 


2E 


BYTE P2+'N'- 


■'©•- 




0154 0353 


C3 


BYTE P3E+'C'- 


-•'©•- 


JNC DIS 


0155 0854 


C5 


BYTE P3E+'E--- 


-•'©•' 


•JNE DIS 


0156 0855 


CF 


BYTE P3E+'0'- 


-•••©•- 


JNO DIS 


0157 0856 


2F 


BYTE P2+'0'- 


■'©■' 




0153 0357 


C3 


BYTE P3E+'C"- 


-•'©•' 


JOC DIS 


0159 0358 


DO 


BYTE P3E+'P'- 


-■'©•- 


•JOP DIS 


0160 0859 


OC 


BYTE Pl+'L'- 


'@' 




0161 035A 


24 


BYTE P2+'D'- 


-@- 




0162 085B 


43 


BYTE P3+'C'- 


-©■- 




0163 085C 


F2 


BYTE P4E+-R'- 


~'@- 


LDCR S,C 


0164 085D 


A9 


BYTE P2E+-I--- 


- •'<»••• 


LI W, IOP 


0165 085E 


4D 


BYTE P3+'M'-- 


'©-' 




0166 085F 


E9 


BYTE P4E+'I'- 


-•'@- 


LIMI IOP 


0167 0860 


32 


BYTE P2+'R'-- 


•@- 




0168 0861 


45 


BYTE P3+-E'-' 


'«•' 




0169 0862 


F8 


BYTE P4E+'X'- 


-•-©•' 


LREX 


0170 0863 


37 


BYTE P2+-'W-'-- 


-@-- 




0171 0864 


50 


BYTE P3+'P'-' 


'©■- 




0172 0865 


E9 


BYTE P4E+'I--- 


-•-@- 


LWPI IOP 


0173 0866 


OD 


BYTE Pl+'M--- 


©•- 




0174 0867 


2F 


BYTE P2+'0'-' 


@- 




0175 0868 


D6 


BYTE P3E+'V-- 


-•'©•' 


MOV S,D 


0176 0369 


E2 


BYTE P4E+'B'- 


-•'«'• 


MOVB S,D 


0177 086A 


30 


BYTE P2+'P-'-- 


'«■•' 




0178 086B 


D9 


BYTE P3E+'Y'- 


-'<§- 


MPY S,W 
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0179 

1 SO 

0181 

0182 

0183 

0184 

1 85 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 



036C 

036D 

036E 

086F 

0870 

0871 

0872 

0873 

0874 

0875 

0376 

0877 

0878 

0879 

037A 

087B 

087C 

087D 

087E 

087F 

0880 

0881 

0882 

0883 

0884 

0885 

0886 

0887 

0888 

0889 

088A 

088B 

088C 

083D 

088E 

083F 

0390 

0891 

0892 

0893 

0894 

0895 

0896 

0397 

0898 

0899 

039A 

089B 

089C 

089D 

089E 



OE 
T-'Fi 

C7 

2F 

DO 

OF 

32 

C9 

12 

33 

45 

F4 

B4 

57 

FO 

93 

A2 

CF 

DA 

25 

54 

EF 

2C 

CI 

2F 

C3 

E2 

32 

CI 

C3 

CC 

34 

43 

F2 

53 

F4 

57 

FO 

37 

50 

E2 

3A 

C3 

E2 

14 

A2 

98 

2F 

DO 

D2 

00 



BYTE Pl+'N -••<*•' 
BYTE P2+'E '-'©•' 
BYTE P3E+'G'-'@' 
BYTE P2+'0 ' -•-<§-■ 
BYTE P3E+'P--'@- 
BYTE Pi + 'O'-'®-' 
BYTE P2+'R'--@-' 
BYTE P3E+'I'-'G' 
BYTE Pl+'R'-'®' 
BYTE P2+'S'-'@' 
BYTE P3+'E •'-•©•' 
BYTE P4E+--T- -'@' 
BYTE P2E+'T' 
BYTE P3+'W- 
BYTE P4E+'P-' 
BYTE P1E+'S" 
BYTE P2E+'B' 



•-©■' 



BYTE P3E+'0'-'@' 
BYTE P3E+'Z'-'@" 
BYTE P2+-E '-'©■' 
BYTE P3+-'T-'-'@' 
BYTE P4E+--0 •'-■'© 
BYTE P2+'L'-'@- 
BYTE P3E+'A'-'@ 
BYTE P2+'0'-'®' 
BYTE PSE+'C'-'Q 
BYTE P4E+'B '-'@ 
BYTE P2+'R'-'S' 
BYTE P3E+' A •■-'"© 
BYTE P3E+'C '-•'© 
BYTE P3E+'L'-'@ 
BYTE P2+'T'-'@-' 
BYTE P3+'C '-'©' 
BYTE P4E+'R ■"-'«•' 
BYTE P3+'S '-'©•' 
BYTE P4E+'T '-'@' 
BYTE P3+'W'-'@'' 
BYTE P4E+'P ■--•'©-' 
BYTE P2+'W'--'@'' 
BYTE P3+'P '-"©•' 
BYTE P4E+'B '-'£•' 
BYTE P2+'Z'-'@' 
BYTE P3E+'C -'©■' 
BYTE P4E+'B '-'«' 
BYTE Pl + 'T'-'®-' 
BYTE P2E+'B'-'@" 
BYTE PlE+'X'-'e' 
BYTE P2+'0 '-'<*' 
BYTE P3E+'P'-'@' 
BYTE P3E+'R' -'©-' 
BYTE 



NEC 



NOP 



OR I W,IOP 



RSET 
RT 

RTWP 
S S,D 
SB S»D 
SBO BIT 
SBZ BIT 



SETO S 
SLA W,N 

SOC S»D 
SOCB StD 

SRA W,N 
SRC W,N 
SRL W,N 



STCR S»C 



=;TST W 



STWP W 



SWPB S 

SZC S,D 
SZCB S, D 

TB BIT 

X S 

XOP S,W 
XOR S»W 
END OF TABLE 



* BRANCH TABLE FOR OPERANDS 

* O - N/A 

* 1 - S OR D 

* 2 - W OR C 

* 3 - I OP 

* 4 - N (SHIFT COUNT) 

* 5 - DIS 

* 6 - BIT 
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0239 
0240 



08A0 
08A2 
08A4 
08A6 
08A8 
08AA 
08AC 



0000 
OB 10 
0B9C 
0B8C 
0B30 
0BA4 
0BF8 



* 
OP 



DATA O , OPA , OPF , OPE , OPD , OPG , OPH 



0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 



08AE 

08B0 

08B2 

08B4 

08B6 

08B8 

08BA 

08BC 

08BE 

08C0 

08C2 

08C4 

08C:6 

08C3 

08CA 

08CC 

08CE 

08D0 

08D2 

08D4 

08D6 

08D8 

03DA 

08 DC 

08DE 

08E0 

08E2 

08E4 

08E6 

08E8 

08EA 

08EC 

08EE 

08F0 

08F2 



0009 

0005 

OOOA 

OOOA 

0014 

0008 

0000 

0013 

OOOA 

0006 

0003 

00 1 

A009 

B009 

0748 

0233 

0253 

0443 

0688 

0408 

8009 

9009 

0293 

03A0 

03C0 

04C8 

200A 

240 A 

0608 

0648 

3C0A 

0340 

0588 

05C8 

0548 

1 305 

1 505 

1B05 

1405 

1A05 

1205 

1105 

1 005 

1705 

1605 

1905 

1305 



■H- 

* 

# 

FM1 
FM2 
FM3 
FM4 
FM5 
FM6 
FM7 
FM8 
FM9 
FMA 
FMB 
FMC 
CODE 



BASIC OP-CODE TABLE 
EACH ENTRY HAS THE ( 
ONE AND OPERAND TWO 



:«P CODE, OPERAND 
DESCRIPTION. 



EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



>9 

>5 

>A 

>A 

>14 

>8 



>13 

>A 

>6 

>3 

:>io 

>A000+FM1 

>B000+FM1 

>0740+FM6 

>0220+FM8 

>0240+FM8 

>0440+FM6 

>0680+FM6 

>0400+FM6 

>8000+FM 1 

>9000+FMl 

>0230+FMS 

>03A0+FM7 

>03C0+FM7 

>04C0+FM6 

>2000+FM3 

>2400+FM3 

>0600+FM6 

>0640+FM6 

>3C00+FM9 

>0340+FM7 

>0530+FM6 

>05C0+FM6 

>0540+FM6 

>1300+FM2 

>1500-«-FM2 

> 1 B00+FM2 

>1400+FM2 

>1A00+FM2 

>1200+FM2 

>1100+FM2 

>1000+FM2 

> 1 700+FM2 

>1600-+-FM2 

M900+FM2 

>1300+FM2 



FORMAT 1 - 
FORMAT 2 - 



FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 8 

FORMAT 9 

FORMAT A 

FORMAT B 

FORMAT C 

A 

AB 

ABS 

AI 

AND I 

B 

BL 

BLWP 

C 

CB 

CI 

CKON 

CKOF 

CLR 

COC 

CZC 

DEC 

DECT 

DIV 

IDLE 

INC 

INCT 

INV 

•JEQ 

JGT 

JH 

•JHE 

JL 

JLE 

JLT 

•JMP 

JNC 

JNE 

JNO 

JOC 



D 
DIS 
S,W 
S,C 
W,N 
S 

N/A 
W, IOP 
S,W 
BIT 
IOP 
W 
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0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 
0335 

0336 
0337 
0338 
0339 

0340 
0341 
0342 

0343 
0344 

0345 
0346 



08F4 

03F6 

08F8 

OSFA 

08FC 

08FE 

0900 

0902 

0904 

0906 

0908 

090A 

090C 

090E 

0910 

09 1 2 

0914 

0916 

0913 

091 A 

09 1C 

09 IE 

0920 

0922 

0924 

0926 

0928 

092A 

092C 

092E 

0930 

0932 

0934 

0936 

0938 

093A 



1C05 

300A 

02 1 3 

0303 

03E0 

02E3 

C009 

D009 

380A 

0508 

1000 

0273 

0360 

045B 

0380 

6009 

7009 

1D06 

1E06 

0708 

0A14 

E009 

F009 

0814 

0B14 

0914 

340A 

02D0 

02B0 

06C3 

4009 

5009 

1F06 

0483 

2C0A 

230A 



093C 

093E 

0940 

0942 

0944 

0946 

0948 

094A 

094C 

094E 

0950 

0952 

0954 

0956 

0958 

095A 

095C 

095E 

0960 

0962 

0964 



C04B 

0208 

00 1 

1007 

0208 

0002 

069F 

1003 

C04B 

0208 

OOOA 

04C7 

CI 84 

0226 

FFDO 

110A 

0286 

OOOA 

1105 

0226 

FFF9 



* HEX 

■* 

HEX 



BIN 



DEC 
DEC1 



DATA >1C00+FM2 JOP 

DATA >3000+FM4 LDCR 

DATA >0200+FM8 LI 

OAT A >0300+FMB LI MI 

DATA >03E0+FM7 LREX 

DATA >02E0+FMB LWPI 

DATA >C000+FM1 MOV 

DATA >D000+FM1 MOVB 

DATA >3800+FM9 MPY 

DATA >0500+FM6 NEG 

DATA >1000+FM7 NOP 

DATA >0260+FM8 OR I 

DATA >0360+FM7 RSET 

DATA >045B+FM7 RT 

DATA >0330+FM7 RTWP 

DATA >6000+FMl S 

DATA >7000+FMl SB 

DATA >1D00+FMA SBO 

DATA MEOO+FMA SBZ 

DATA >0700+FM6 SETO 

DATA >0A00+FM5 SLA 

DATA >E000+FM1 SOC 

DATA >F000+FM1 SOCB 

DATA >0800+FM5 SRA 

DATA >0B00+FM5 SRC 

DATA >0900+FM5 SRL 

DATA >3400+FM4 STCR 

DATA >02C0+FMC STST 

DATA >02A0+FMC STWP 

DATA >06C0+FM6 SWPB 

DATA >4000+FMl SZC 

DATA >5000+FMl SZCB 
DATA MFOO+FMA TB 
DATA >0480+FM6 X 
DATA >2C00+FM9 XOP 
DATA >2800+FM3 XOR 

BINARY, OR DECIMAL INPUT 



MOV R11,R1 

LI R8,16 

JMP DEC5 

LI R3,2 

BL *R15 

.JMP DEC5 

MOV R11.R1 

LI R8,10 



DEC5 CLR R7 

DEC 10 MOV R4,R6 

A I R6,->30 

JLT DEC30 

CI R6,10 

JLT DEC20 

AI R6,-7 



SAVE RETURN 
PRESET BASE 



PRESET BASE 



SAVE RETURN 
PRESET BASE 

PRESET VALUE 
PUT CHAR IN R6 
REMOVE ASCII BIA 

NOT VALID 



O.K. 
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0347 0966 0236 
0968 000A 

0348 096A 1102 

0349 096C 8206 

0350 096E 1 1 03 

0351 0970 C2C1 

0352 0972 C047 

0353 0974 045B 

0354 0976 C006 

0355 0978 CI 87 

0356 097A 3988 

0357 097C A ICO 

0358 097E 069F 

0359 0980 10E9 
0360 

0361 
0362 

0363 0982 C04B 

0364 0984 069F 

0365 0986 C2C1 

0366 0988 C34B 

0367 098A 0284 
098C 0052 

0368 098E 1601 

0369 0990 069F 

0370 0992 06A0 
0994 094C 

0371 0996 0281 
0998 OOOF 

0372 099 A 1B01 

0373 099C 045D 

0374 099E 0204 
09A0 522A 

0375 09 A2 1075 
0376 

0377 
0378 

0379 09A4 C04B 

0380 09A6 069F 

0381 09A8 1001 

0382 09AA C04B 

0383 09AC 0284 
09AE 0025 

0384 09B0 13C9 

0385 09B2 0284 
09B4 0027 

0386 09B6 1305 

0387 09B8 0284 
09BA 003E 

0388 09BC 16C8 

0389 09BE 069F 

0390 09C0 10BE 

0391 09C2 04C7 

0392 09C4 069F 

0393 09C6 0284 
09C8 0027 

0394 09CA 1303 

0395 09CC 0A87 

0396 09CE E1C4 

0397 09D0 10F9 



CI R6,10 

.JLT DEC30 

DEC20 C R6,R8 

JLT DEC40 

DEC30 MOV R1.R11 

MOV R7 , R 1 

B *R11 

DEC40 MOV R6,R0 

MOV R7,R6 

MPY R8,R6 

A R0,R7 

BL *R15 

.JMP DECIO 

■* 

* GET REGISTER NAME 

GETR MOV R11,R1 

BL #R15 

MOV R 1 , R 1 1 

GETRA MOV R11.R13 

GETR10 CI R4, 'R' 

JNE GETR20 
BL *R15 
GETR20 BL ©DEC 

CI Rl,15 

JH GETR30 
B *R13 
GETR30 LI R4, 'R*' 

JMP PT210 

# 

* GET ADDRESS 

■* 

GETL MOV R11,R1 

BL *R15 

JMP GETL 10 

GETL A MOV R11,R1 

GETL 10 CI R4, '%' 

JEQ BIN 
CI R4,>27 

JEQ GETL20 
CI R4, ">' 

JNE DEC1 

BL *R15 

JMP HEX +2 

GETL20 CLR R7 

GETL30 BL *R15 

CI R4,>27 

JEQ GETL40 

SLA R7 , 8 

SOC R4,R7 

JMP GETL30 



NOT VALID 

IF NOT LT BASE 

RESTORE EXIT 

R1=ANS. 

EXIT 



NOT GOOD 



SAVE RET 

TEMP. RESET OF Rll 

SAVE RET 

IF RX, SKIP THE R 



GET X 
TEST RANGE 



EXIT 

ISSUE RANGE ERROR 



SAVE RET 



SAVE RETURN 
CHECK FOR BINARY 



CHECK FOR STRING < " > 



CHECK FOR HEX 

MUST BE DEFAULT 
MUST BE HEX 

PRESET STRING 
GET A CHAR 
IF -', DONE 



9 
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0398 
0399 
0400 
0401 
0402 
0403 
0404 

0405 

0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 



09D2 069F 
09D4 10CD 



09D6 
09D8 
09DA 
09DC 
09DE 
09E0 
09E2 
09E4 



C20B 
0200 
0005 
06A0 
080E 
0600 
16FC 
0458 



0414 

04 1 5 

0416 

0417 

04 1 8 
0419 
0420 

0421 

0422 

0423 

0424 
0425 
0426 
0427 

0428 

0429 
0430 
0431 

0432 
0433 
0434 
0435 



09E6 

09E8 

09EA 

09EC 

09EE 

09F0 

09F2 

09F4 

09F6 

09F8 

09FA 

09FC 

09FE 

OAOO 

0A02 

0A04 

0A06 

0A08 

OAOA 

OAOC 

OAOE 

0A10 

0A12 

0A14 

0A16 

0A13 

0A1A 

0A1C 

0A1E 

0A20 

0A22 



02E0 

FFBO 

0201 

FEOO 

020F 

0800 

C801 

FFFA 

COAO 

FFFA 

04C3 

C142 

0204 

ODOA 

06A0 

0812 

06A0 

08 1C 

06A0 

080E 

C0C3 

1307 

CI 72 

06A0 

081C 

C802 

FFFA 

0643 

10EE 

06A0 

09D6 



0436 
0437 
0438 
0439 

0440 
0441 



0A24 
0A26 
0A28 
0A2A 
0A2C 
0A2E 
0A30 
0A32 
0A34 



020A 
081F 
04C5 
04C6 
069F 
0284 
0020 
1329 
C145 



GETL40 BL #R15 

•JMP DEC30 

* TAB OVER FIVE PLACES 

TAB MOV R11,R3 

LI R0,5 

TAB 10 BL ©TYPES 

DEC RO 

JNE TAB 10 

B *RS 



GET TERM, 
EXIT 



SAVE RETURN 
RO=COUNTER 



EXIT 



* CONTROL LOOP - REQUEST ADDRESS, 

* PRINT TRANSLATED OPCODES 
* 

ZLABGN LWPI WORKS 



LI R1,DFPC 

LI R15,INPT 

PT110 MOV R1,©PC 

PT120 MOV ©PCR2 

CLR R3 

PT130 MOV R2,R5 

LI R4 , >ODOA 

BL ©TYPE 

BL ©TYPEH 

BL ©TYPES 

PT140 MOV R3,R3 

JEQ PT150 

MOV *R2+,R5 

BL ©TYPEH 

MOV R2,©PC 

DECT R3 

JMP PT 1 30 

PT150 BL ©TAB 



SET WORKSPACE 

SET DEFAULT PC 

SET R15 FOR INPT CALL 

SAVE PC 

R2=PC 

R3=W0RD COUNT 

DISPLAY CURRENT ADDRESS 

PRINT LINE FEED 



PRINT (R5) IN HEX 

SPACE OVER ONE 

IF. WORD COUNT NONZERO 
DISPLAY INST. WORDS 
DISPLAY 



UPDATE PC 

REDUCE WORD COUNT 
CONT. TILL ALL DONE 
TAB OVER 6 PLACES 



* ACCEPT THE OP-CODE MNEMONIC 
LI R10,0PS-1 



CLR R5 

CLR R6 

PT160 BL *R15 

CI R4,' 

•JEQ PT200 

MOV R5,R5 



R10=L00KUP INDEX 

R5=CHAR. POS. 
R6=0PC0DE COUNT 
GET ONE CHAR 
IF SPACE - END 



IF POS. ONE THEN 
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0442 0A36 1610 






JNE 


PT170 


0443 0A38 0284 






CI 


R4, *•' 


0A3A 0024 










0444 0A3C 132B 






.JEQ 


PT220 


0445 0A3E 0284 






CI 


R4, •' + •' 


0A40 002B 










0446 0A42 1339 






JEQ 


PT250 


0447 0A44 0284 






CI 


R4, •'-•' 


0A46 002D 










0448 0A48 1339 






JEQ 


PT260 


0449 0A4A 0284 






CI 


R4 , ■' / -' 


0A4C 002F 










0450 0A4E 1604 






JNE 


PT170 


0451 0A50 069F 






BL 


*R15 


0452 0A52 06A0 






BL 


GHEX 


0A54 093C 










0453 0A56 10CD 






JMP 


PT110 


0454 0A58 0284 


PT170 


CI 


R4,'A' 


0A5A 0041 










0455 0A5C 1116 






JLT 


PAT90 


0456 0A5E 0284 






CI 


R4, 'Z- 


0A60 005A 










0457 0A62 1513 






JGT 


PAT90 


0458 0A64 0AB4 






SLA 


R4,ll 


0459 0A66 058A 


PT180 


INC 


RIO 


0460 0A68 D01A 






MOVB 


*R107R0 


0461 0A6A 130F 






JEQ 


PAT90 


0462 0A6C 1501 






JGT 


PT 1 90 


0463 0A6E 05C6 






INCT 


R6 


0464 0A70 0A10 


PT190 


SLA 


R0» 1 


0465 0A72 09E0 






SRL 


RO, 14 


0466 0A74 8005 






C 


R5 y RO 


0467 0A76 11F7 






JLT 


PT180 


0463 0A78 1503 






JGT 


PAT90 


0469 0A7A D01A 






MOVE 


: *R10,R0 


0470 0A7C 0A30 






SLA 


R0,3 


0471 0A7E 9100 






CB 


R0,R4 


0472 0A80 16F2 






JNE 


PT 1 80 


0473 0A82 0585 






INC 


R5 


0474 0A34 10D3 






JMP 


PT160 


0475 0A86 D01A 


PT 


200 


MOVE 


1 *R10,R0 


0476 0AS8 1120 






JLT 


PT280 


0477 0A8A 0204 


PAT90 


LI 


R4 , -' S* " 


0A8C 532A 










0478 0A8E 06A0 


PT 


210 


BL 


©TYPE 


0A90 0812 










0479 0A92 10B1 






JMP 


PT120 


0480 


•H- 








0481 


* 


HANDLE STRING ENTRIES. 


0482 


■»• 


UNTIL A CR. THEN FORC 


0433 


•* 


EXIT 




0484 


•* 








0485 0A94 069F 


PT220 


BL 


*R15 


0486 0A96 0284 






CI 


R4,>0D 


0A98 OOOD 










0487 0A9A 1304 






JEQ 


PT230 


0488 0A9C 0A34 






SLA 


R4,8 


0489 0A9E DC84 






MOVB R4,*R2+ 


0490 OAAO 0583 






INC 


R3 


0491 0AA2 10F8 






JMP 


PT220 



CHECK FOR +/-/* 
CHECK FOR *( STRING) 



;:HECK FOR +( CONST. ) 



CHECK FOR -(CONST. ) 



CHECK FOR ADDR RESET 



GET ANOTHER CHARACTER 
GET NEW ADDRESS 



BE SURE WE HAVE A CHAR, 



PUT CHAR IN LEFT 5 BITS 

ADVANCE LOOKUP INDEX 

GET CHAR. LEVEL 

JUMP IF END OF TABLE 

IF VALID END, UPDATE 

OPCODE COUNT 

PUT POS. IN RIGHT BITS 

COMPARE POS. 
LOWER POS. 
HIGHER - ERROR 
SAME - CHECK CHAR. 
CHAR IN LEFT 5 BITS 
COMPARE TO INPUT 
NO MATCH 

O.K. - UPDATE POS. 
GET REST OF OPCODE 
END - IS IT VALID? 
IF MINUS - O.K. 
ERROR - SNATCH AWAY 

CONTROL AND START OVER 
DON'T CHANGE PC 

COLLECT CHARACTERS 
::E ADDRESS EVEN AND 



GET A CHAR. 
IF CR - EXIT 



SAVE THE CHAR, 
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0492 
0493 
0494 
0495 

0496 
0497 

0498 
0499 
0500 
0501 
0502 
0503 

0504 
0505 

0506 
0507 
0508 

0509 
0510 
0511 
0512 
05 1 3 
0514 
0515 



0AA4 
0AA6 
0AA8 
OAAA 
OAAC 
OAAE 
OABO 
0AB2 
0AB4 



C003 
08 1 
1703 
D4A0 
0811 
0583 
COAO 
FFFA 
1024 



0AB6 
0AB8 
OABA 
OABC 
OABE 
OACO 
0AC2 
0AC4 
0AC6 
0AC8 



06A0 
09A4 
1 003 
06A0 
09A4 
0501 
C481 
0203 
0002 
101A 



0516 
0517 

0518 
0519 
0520 
0521 

0522 
0523 
0524 
0525 

0526 

0527 
0523 
0529 
0530 
0531 

0532 
0533 
0534 
0535 
0536 
0537 
0538 
0539 
0540 



OACA 
OACC 
OACE 
OADO 
0AD2 
0AD4 
.0AD6 
0AD3 
OADA 
OADC 
OADE 
OAEO 
0AE2 
0AE4 
0AE6 
0AE8 
OAEA 
OAEC 
OAEE 
OAFO 
0AF2 
0AF4 
0AF6 
OAFS 
OAFA 
OAFC 



C2A6 

08AC 

COOA 

0240 

FFEO 

C430 

05C3 

C04A 

0281 

045B 

13F1 

C04A 

0921 

0241 

0006 

C061 

08A0 

1301 

0691 

OADA 

09CA 

C1AA 

08A0 

1302 

04CA 

0696 



PT230 MOV R3,R0 

SRA RO, 1 

JNC PT240 

MOVB ©SPACE, #R2 

INC R3 

PT240 MOV @PC,R2 

JMP PT300 



IF ODD- INST. SPACE 

PAD WITH SPACE 

RESET PC 

CO PRINT RESULTS 



* HANDLE CONSTANT ENTRIES. 

* PT250 IS PLUS AND PT260* IS MIN«lc ; 
# 

PT250 BL ©GETL 



JMP PT270 

PT260 BL ©GETL 

NEG Rl 

PT270 MOV R1,*R2 

LI R3,2 

JMP PT300 



GETVALUE 

GO SAVE IT 
GET VALUE 

-VALUE 
SAVE IT 
SET R3 

GO PRINT 



* THE OPCODE HAS BEEN LOCATED AND THE 

* INDEX IS IN R6. NOW COLLECT THE 

* OPERANDS. 
# 

PT280 MOV @CGDE-2(R6),R10 R10-INST&PARSING INST, 



MOV R10»R0 

AND I ROFFEO 

MOV R0,*R2 
INCT R3 
MOV R10,R1 
CI R1,>045B 

JEQ PT270 
MOV R10,R1 
SRL Rl,2 
AND I Rl,>6 



PRESET THE INST. 



C0UNT=2 

CHECK FOR 'RT' 

AND HANDLE AS CONST, 



GET OP. ONE DESC. 



MOV @0P<R1),R1 R1=0PERAND INDEX 



JEQ PT290 

BL *R1 

PT290 SLA RIO, 13 

SRL RIO, 12 

MOV ©0P<R10>,R6 

JEQ PT300 

CLR RIO 

BL *R6 



SKIP IF NO FIRST ONE 
COLLECT FIRST ONE 



JUMP IF NONE 
SET FLAG 



* THE ENTIRE STATEMENT HAS BEEN ACrEPTED 

* PRINT ANY COMMENTS IF ENTERED, TERMINATE WITH 

* A CARRIAGE RETURN, PRINT THE TRANSLATION AND 

* UPDATE THE LOCATION COUNTER. 
* 
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0541 
0542 
0543 

0544 
0545 

0546 

0547 
0543 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 

0558 
0559 

0560 
0561 

0562 
0563 
0564 
0565 
0566 

0567 

0563 
0569 

0570 
057 1 

0572 
0573 

0574 
0575 

0576 

0577 



OAFE 
OBOO 
0B02 
0B04 
0B06 
0B08 
OBOA 
OBOC 
OBOE 



2EC4 
0984 
0284 
OOOD 
16FB 
06A0 
09D6 
0460 
OAOE 



PT300 IN R4 

SRL R4,8 

CI R4»>0D 

JNE PT300 

PT310 BL @TAB 

B @PT 1 40 

* 

* HANDLE S OR D 



0578 
0579 
0580 
0581 
0582 
0583 
0584 
0585 



OB 10 

0B12 

OB 14 

OB 16 

OB 18 

OBI A 

0B1C 

OB IE 

0B20 

0B22 

0B24 

0B26 

0B28 

0B2A 

0B2C 

0B2E 

0B30 

0B32 

0B34 

0B36 

0B38 

0B3A 

0B3C 

0B3E 

0B40 

0B42 

0B44 

OB 4 6 

0B48 

0B4A 

0B4C 

0B4E 

0B50 

0B52 

0B54 

0B56 

0B58 

0B5A 

0B5C 

0B5E 

0B60 

0B62 

0B64 



C38B 

069F 

0284 

002A 

1324 

0234 

0040 

162D 

06A0 

09A4 

CI 33 

A 182 

C58 1 

05C3 

020 1 

0020 

0284 

OOOD 

1311 

0284 

002C 

130E 

0284 

0020 

130B 

0284 

0028 

16A1 

06A0 

0982 

0261 

0020 

0284 

0029 

169 A 

069F 

COOA 

1601 

0A6 1 

E481 

045E 

06 AO 

0982 



*• 
■* 
OPA 



N 

*N 
*N+ 
eX(N) 

ex 

MOV R11.R14 
BL *R15 
CI R4,'*-' 



JEQ 


OPB 


CI 


R4, '©•' 


JNE 


OPC 


BL 


@GETL 


MOV 


R3,R6 


A 


R2,R6 


MOV 


R1,*R6 


INCT 


R3 


LI 


Rl,>20 


CI 


R4,>0D 


JEQ 


OPA 1 


CI 


R4, ', -' 


JEQ 


OPA 10 


CI 


R4,' -' 



.JEQ OPA 10 



CI 



R4, ' ( -' 



JNE PAT90 
BL ©OETR 



OR I 
CI 



Rl»>20 
R4, -' )- 



OPA 10 MOV 
JNE 



0PA1! 
0PA20 B 
OPB BL 



JNE PAT90 
BL *R15 

R10.R0 
OPA 15 
SLA Rl,6 
SOC R1,*R2 
*R14 
@GETR 



GET A CHARACTER 
RIGHT JUSTIFY 
CARRIAGE RETURN ? 

IF NO, GET ANOTHER CHAR 
TAB OVER SIX 

GO DISPLAY OBJECT 



SAVE RETURN ADDRESS 

GET CHAR 

CHECK FOR *N OR *N+ 

JUMP IF YES 

CHECK FOR «X OR @X<N) 

JUMP IF NOT 



ADD TO MEMORY 

SAVE X 

UPDATE COUNT 
ADDRESS MODE 2 

IF RETURN OR ' , " DONE 



IF SPACE - DONE 

IF NOT ( - ERROR 

GET REG. N 
SET MODE 2 
IF NOT ) - ERROR 

REPOS . I T 



INSERT IT 

EXIT 

GET N(FOR *N> 
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0B66 
0B6S 
0B6A 
0B6C 
0B6E 
0B70 
0B72 
0B74 
0B76 
0B73 
0B7A 
0B7C 
0B7E 



0200 
00 1 
02S4 
002B 
1 603 
069F 
0200 
0030 
E040 
10EF 
06A0 
0983 
10EC 



0586 

0587 

0538 
0589 
0590 

059 1 
0592 
0593 

0594 
0595 
0596 
0597 

0598 0B80 C38B 

0599 0B82 06A0 
0B84 0932 

0600 0B86 0A41 

0601 0BS8 E481 

0602 0B8A 10EA 
0603 

0604 
0605 
0606 
0607 

0608 
0609 
06 1 
0611 
0612 
06 1 3 
0614 
0615 
06 1 6 
0617 

06 1 8 

06 1 9 
0620 
062 1 
0622 
0623 
0624 
0625 
0626 
0627 

0628 
0629 
0630 

0631 
0632 

0633 
0634 



0B8C 
0B8E 
OB 90 
0B92 
0B94 
0B96 
0B98 
0B9A 



C38B 
06A0 
09A4 
CI 83 
A182 
C581 
05C3 
10E2 



0B9C C38B 
0B9E 06A0 
OBAO 0982 
0BA2 10DA 



0BA4 
0BA6 
0BA3 
OBAA 
OBAC 
OBAE 
OBBO 
0BB2 
0BB4 
0BB6 
0BB8 
OBBA 
OBBC 
OBBE 



C38B 
069F 
02S4 
0024 
1607 
069F 
0234 
00 2 B 
1319 
0284 
002D 
131A 
06A0 
09AA 



LI 
CI 



RO.MO 
R4, •' + •' 



JNE 0PB10 

BL *R15 

LI RO » >30 

0PB10 SOC R0,R1 

JMP 0PA10 

OPC BL GGETRA 

-JMP OPA 1 

* HANDLE SHIFT COUNT 

OPD MOV R11.R14 

BL ©GETR 

SLA Rl,4 

SOC R1,*R2 

•JMP 0PA20 



SET MODE = 1 

IF TERM. BY + 

CHANGE MODE 

SET MODE = 3 

R1=REGS<M0DE 

GET N(FOR N) 

MODE=0 - GO INSERT 



SAVE RETURN 
GET COUNT 



REPOSITION 

INSERT 

EXIT 



* HANDLE IMMEDIATE OPERANDS 

OPE MOV R11,R14 
BL @GETL 



SAVE RETURN 
GET I OP 



ADD TO MEMORY 



ADJUST COUNT 
CONTINUE 



MOV R3 , R6 

A R2,R6 

MOV R1,*R6 

INCT R3 

JMP 0PA20 
* 

* HANDLE W 

* 

OPF MOV R11,R14 

BL @GETR 



JMP OPA 10 

•* 

* HANDLE DISPLACEMENTS 

* + DIS 

* - DIS 

* ADDRESS (CALCULATE DISPLACEMENT) 
* 

OPG MOV R11,R14 
BL -W-R15 
CI R4,'*-' 



SAVE RETURN 
GET LEADER (*) 



0PG5 



JNE 0PG5 

BL *R15 

CI R4,-' + -' 

JEQ 0PG30 

CI R4,'--' 

JEQ 0PG40 

BL QGETLA 



GET FIRST CHAR 
CHECK FOR +DIS 



CHECK FOR -DIS 
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0635 0BC0 

0636 0BC2 

0637 0BC4 

0638 0BC6 

0639 0BC8 
OBCA 

0640 OBCC 

0641 OBCE 
OBDO 

0642 0BD2 

0643 0BD4 
0BD6 

0644 0BD8 

0645 OBDA 
OBDC 

0646 OBDE 

0647 OBEO 
0BE2 

0648 0BE4 
0BE6 

0649 0BE8 
OBEA 

0650 OBEC 

0651 OBEE 

0652 OBFO 
0BF2 

0653 0BF4 

0654 0BF6 
0655 
0656 
0657 

0658 0BF8 

0659 OBFA 
OBFC 

0660 OBFE 
0661 

NO ERRORS 



C002 

05C0 

6040 

0811 

0281 

007F 

1509 

0281 

FF80 

1106 

0241 

OOFF 

E481 

0201 

O002 

10C0 

0204 

442A 

0460 

0A8E 

06A0 

09A4 

0641 

10EB 

06A0 

09A4 

0501 

10FA 



C38B 
06A0 
09A4 
10EA 



MOV R2,R0 

INCT RO 

S R0,R1 

0PG10 SRA Rl, 1 

CI R1,>7F 

JOT 0PG20 

CI R1,>FF80 

JLT 0PG20 

0PG15 ANDI R1,>FF 

SOC R1,*R2 

LI Rl»2 

JMP 0PA20 

0PG20 LI R4,'D*' 

B @PT210 

0PG30 BL SGETL 

0PG35 DECT Rl 

.JMP 0PG10 

0PG40 BL @GETL 

NEG Rl 

JMP 0PG35 

* 

* HANDLE BIT 

* 

OPH MOV R11,R14 

BL SGETL 

JMP 0PG15 
END 



MUST BE ADDRESS 

D I S*2=ADDRESS- ( PC+2 ) 

DISP=BYTE STUFF/ 2 
CHECK RANGE 



RANGE O.K. SO 

INSERT IT 
RESET R3 

EXIT 

RANGE ERROR 

GO ISSUE ERROR 

+DIS 

ADJUST DIS FOR CUR. INST 

-DIS 



SAVE RETURN 



GO PROCESS IT 
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INSTRUCTION SET. ALPHABETICAL INDEX 



ASSEMBLY 


MACHINE 




STATUS REG 


RESULT 


— I " — — — — — — _— _^_ 


LANGUAGE 
MNEMONIC 


LANGUAGE 
OP CODE 


FORMAT* 


BITS 
AFFECTED 


COMPARED 
TO ZERO 


INSTRUCTION 


A 
AB 


AOOO 
BOOO 


1 


0-4 


X 


Add (word) 


ABS 


0740 


g 


0-5 
0-2 
0-4 
0-2 


X 


Add (byte) 


Al 
ANDI 


0220 
0240 


8 
8 


X 
X 
X 


Absolute Value 
Add Immediate 
AND Immediate 


B 


0440 


6 








BL 


0680 


6 






Branch 


BLWP 


0400 


6 






Branch and Link (R11) 


C 


8000 


j 






Branch; New Workspace Pointer 


CB 


9000 


1 


0-2 
0-2,5 




Compare (word) 
Compare (byte) 


CI 
CKOF 


0280 
03C0 


8 
7 


0-2 




Compare Immediate 


CKON 


03A0 


7 






User Defined 


CLR 


O4C0 


6 
3 






User Defined 


COC 


2000 


2 




Clear Operand 










Compare Ones Corresponding 


CZC 


2400 


3 


2 
0-4 






DEC 


0600 


6 
6 
g 




Compare Zeroes Corresponding 


DECT 


0640 


X 


Decrement (by one) 


DIV 


3CO0 


0-4 
4 


X 


Decrement (by two) 


IDLE 


0340 


7 




Divide 












Computer Idle 


INC 
INCT 


0580 
05C0 


6 

Q 


0-4 
0-4 
0-2 


X 


Increment (by one) 


INV 


0540 


6 


X 


Increment (by two) 


JEQ 


1300 


2 


X 


Invert (One's Complement) 


JGT 


1500 


2 


- 




Jump Equal (ST2=1) 

Jump Greater Than (ST=1), Arithmetic 


JH 


1B00 


2 








JHE 


1400 


2 






Jump High (ST0=1 and ST2=0), Logical 


JL 


1AO0 


2 






Jump High or Equal (STO or ST2=1), Logical 


JLE 


1200 


2 






Jump Low (STO and ST2=0), Logical 


JLT 


1100 


2 


- 




Jump Low or Equal (STO=0 or ST2=1), Logical 
Jump Less Than (ST1 and ST2=), Arithmetic 


JMP 


1000 


2 








JNC 


1700 


2 






Jump Unconditional 


JNE 


1600 


2 
2 






Jump No Carry (ST3=0) 


JNO 


1900 






Jump Not Equal (ST2=0) 


JOC 


1800 


2 


- 




Jump No Overflow (ST4=0) 
Jump On Carry (ST3=1) 


JOP 


1CO0 


2 








LDCR 
U 


3000 
0200 


4 
8 


0-2.5 


X 


Jump Odd Parity (ST5=1) 
Load CRU 


UMI 
LREX 


0300 
03E0 


8 
7 


12-15 
12-15 


X 


Load Immediate 

LoBd Interrupt Mask Immediate 

Load and Execute 


LWPI 


02E0 


8 








MOV 


COOO 


j 


0-2 




Load Immediate to Workspace Pointer 


MOVB 


DOOO 


1 


X 


Move (word) 


MPY 


3800 


9 
6 


0-2.5 


X 


Move (byte) 


NEG 


0500 


0-2 




Multiply 








X 


Negate (Two's Complement) 


ORI 
RSET 
RTWP 
S 


0260 
0360 
0380 
6000 


8 

7 
7 


0-2 

12-15 

0-15 


X 


OR Immediate 

Reset AU 

Return from Context Switch 


SB 


7000 




0-4 


X 


Subtract (word) 








0-5 


X 


Subtract (byte) 


SBO 


1DO0 


2 








SBZ 


TEOO 


2 






Set CRU Bit to One 


SETO 


0700 


6 






Set CRU Bit to Zero 


SLA 


OAOO 


5 


0-4 
0-2 




Set Ones 


SOC 


EOOO 


1 


X 


Shift Left Arithmetic 








X 


Set Ones Corresponding (word) 


SOCB 
SRA 


FOOO 
0800 


1 
5 


0-2.5 

0-3 

0-3 

0-3 

0-2.5 


X 


Set Ones Corresponding (byte) 


SRC 


OBOO 


5 
5 
4 


X 


Shift Right (sign extended) 


SRL 
STCR 


0900 
3400 


X 
X 
X 


Shift Right Circular 
Shift Right Logical 
Store From CRU 


STST 


02C0 


8 








STWP 


02A0 


8 






Store Status Register 


SWPB 


06C0 








Store Workspace Pointer 


SZC 
SZCB 


4000 
5000 


1 


0-2 
0-2,5 


Swap Bytes 
X 


Set Zeroes Corresponding (word) 








X 


Set Zeroes Corresponding (byte) 


TB 


1F00 


2 


2 






X 


0480 


6 




Test CRU Bit 


XOP 


2C00 


g 


6 
0-2 




Execute 


XOR 


2800 


3 




Extended Operation 


1 




X 


Exclusive OR 



'Format! «• (Mined on pago 1 7. 
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INSTRUCTION FORMATS 



FORMAT 

1 

2 

3 

4 

5 

6 

7 

8 

9 



OP CODE 



B 



OP CODE 



OPCODE 



OP CODE 



OP CODE 



OPCODE 



OP CODE 
OP CODE 



OP CODE 




GENERAL USE 



ARITHMETIC 

JUMP 

LOGICAL 

CRU 

SHIFT 

PROGRAM 

CONTROL 

IMMEDIATE 

MPY. DIV, XOP 



OP CODE 

B 

T D 
DR 

TS 

SR 

C 

R 

N 



OPERATION CODE 

BYTE INDICATOR (1=BYTE) 

DESTINATION ADDRESS TYPE* 

DESTINATION REGISTER 

SOURCE ADDRESS TYPE* 

SOURCE REGISTER 

CRU TRANSFER COUNT OR SHIFT COUNT 

REGISTER 

NOT USED 



»Tp OR T S 

00 
01 

10 

11 



{ 



ADDRESS MODE TYPE 

DIRECT REGISTER 

INDIRECT REGISTER 

PROGRAM COUNTER RELATIVE, NOT INDEXED (SR OR DR = 0) 

PROGRAM COUNTER RELATIVE + INDEX REGISTER (SR OR DR>0) 

INDIRECT REGISTER. AUTOINCREMENT REGISTER 
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